(shell-command-sentinel): Do nothing if buffer is dead.

diff --git a/lisp/simple.el b/lisp/simple.el
index 19aca0e194ad24d3747a533a01b0c41e51b1c027..aec30025f35051034b34de2daf7012ca8ace53b8 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -710,7 +710,8 @@ This cannot be done asynchronously."
 ;; We have a sentinel to prevent insertion of a termination message
 ;; in the buffer itself.
 (defun shell-command-sentinel (process signal)
-  (if (memq (process-status process) '(exit signal))
+  (if (and (memq (process-status process) '(exit signal))
+          (buffer-name (process-buffer process)))
       (progn
        (message "%s: %s." 
                 (car (cdr (cdr (process-command process))))